perm filename CEPS[3,ALS] blob sn#201662 filedate 1971-06-17 generic text, type T, neo UTF8
00100	PROCEDURE LOGMAG(REAL ARRAY A,B:INTEGER M);
00200	BEGIN
00300	  FOR I←0 STEP 1 UNTIL 2↑M DO
00400	    BEGIN
00500	      A[I]←ALOG10(A[I]);
00600	      B[I]←ALOG10(A[I]);
00700	    END;
00800	END "LOGMAG";
00850	
00900	 PROCEDURE CEPSTRUM(REAL AARRAY A,B;INTEGER M);
01000	BEGIN
01100	  RFOUR(A,B,M,0);
01200	  LOGMAG(A,B,M);
01300	  RFOUR(A,B,M,1);
01400	END "CEPSTRUM";
01500